   4 .DUNGEON MAKER
NT=0;CLEAR 
   1 .
   2 .
   3 .
   4 .DUNGEON MAKER
   5 .(C)1980 R.C. TIETJENS
   6 :RETURN ;CLEAR ;*PRINT 
   7 D=2;GOSUB 1705;GOSUB 1600
  10 P=1
  20 D=RND (20);GOSUB D×100
  40 GOSUB 2200;GOTO 10
 100 .
 200 .
 300 PRINT "STRAIGHT ",;GOSUB 760;PRINT "60'";RETURN 
 400 .
 500 .
 600 .
 700 PRINT "DOOR ",;A=RND (3);GOTO 700+A
 701 PRINT "LEFT";GOTO 710
 702 PRINT "RIGHT";GOTO 710
 703 PRINT "AHEAD";P=0
 710 IF P=0RETURN 
 720 GOTO 1750
 730 B=RND (12);IF B<3IF A=3GOTO 770
 740 GOTO 740+B
 741 .
 742 PRINT "PARALLEL ",;GOSUB 760;GOTO 1022
 743 .
 744 .
 745 GOTO 1000
 746 .
 747 .
 748 .
 749 .
 750 .
 751 .
 752 PRINT "ROOM: ",;GOTO 1610
 760 PRINT "PASSAGE ",;RETURN 
 770 PRINT "10'×10' ROOM";RETURN 
 800 .
 900 .
1000 GOSUB 760;A=RND (12);GOTO 1000+A
1001 .
1002 .
1003 .
1004 PRINT "LEFT ",;GOTO 1020+A
1005 .
1006 .
1007 .
1008 PRINT "RIGHT ",;GOTO 1020+A
1009 PRINT '"T',"'S",'"';RETURN 
1010 PRINT '"Y',"'S",'"';RETURN 
1011 .
1012 PRINT '"X',"'S",'"';RETURN 
1021 .
1022 PRINT ;RETURN 
1023 .
1024 .
1025 .
1026 PRINT "45' ",;GOTO 1030+A
1027 .
1028 PRINT "CURVE";RETURN 
1033 .
1034 PRINT "AHEAD";RETURN 
1035 .
1036 PRINT "BEHIND";RETURN 
1100 .
1200 .
1300 GOSUB 760;PRINT "TURNS:
1310 A=RND (8);GOTO 1000+A
1400 .
1500 .
1600 PRINT "CHAMBER: ",
1610 X=RND (6)×10;Y=RND (6)×10
1615 P=0
1620 PRINT #2,X,"' × ",Y,"'
1630 GOTO 400+RND (600)÷100×100
1700 D=RND (20)
1705 IF D<10PRINT "STAIRS ",
1710 GOTO 1710+D
1711 .
1712 .
1713 .
1714 .
1715 .
1716 .
1717 .
1718 PRINT "DOWN ",;GOTO 1750+D
1719 PRINT "UP";GOTO 1760
1720 .
1721 PRINT "CHIMNEY UP ",;GOTO 1730+D-4
1722 PRINT "CHIMNEY DOWN ",;GOTO 1738
1723 .
1724 .
1725 .
1726 .
1727 .
1728 .
1729 .
1730 PRINT "TRAP DOOR; DOWN ",;GOTO 1730+D-12
1731 .
1732 .
1733 .
1734 .
1735 .
1736 PRINT "1 LEVEL";GOTO 1750
1737 .
1738 PRINT "2 LEVELS";GOTO 1750
1750 GOSUB 760;PRINT "CONTINUES 30'";RETURN 
1751 GOTO 1759
1752 .
1753 .
1754 .
1755 .
1756 PRINT "1 LEVEL";RETURN 
1757 .
1758 PRINT #1,D-5," LEVELS";RETURN 
1759 GOTO 1800
1760 E=RND (6);IF E>1GOTO 1759
1761 GOSUB 2200;IF K#49IF K#89RETURN 
1762 PRINT "STAIRS COLLAPSE TO ";PRINT "CHUTE DOWN ",
1763 IF D=1 D=7;GOTO 1758
1764 GOTO 1756
1800 PRINT "DEAD END";GOTO 1915
1900 GOSUB 300;PRINT "TRAP LOCATION
1910 T=RND (19);GOTO 1910+T
1911 .
1912 .
1913 .
1914 .
1915 PRINT "SPECIAL";RETURN 
1916 .
1917 .
1918 PRINT "PIT 10' DEEP";GOTO 1930
1919 .
1920 .
1921 PRINT "ROOM 20' × 20'";PRINT "DESCENDS ",#1,T-9," LEVELS";RETURN 
1922 .
1923 .
1924 GOSUB 760;PRINT "CLOSES 10' BACK";RETURN 
1925 PRINT "ARROW TRAP; ";A=RND (6);PRINT #1,A," ARROWS";GOTO 1960
1926 PRINT "SPEAR TRAP; ",;A=RND (3);PRINT #1,A," SPEARS";GOTO 1960
1927 .
1928 .
1929 PRINT "PIT TRAP
1930 IF T=8PRINT "WITH SPIKES"
1960 B=RND (36);IF B<APRINT #1,B," POISONED";RETURN 
1999 RETURN 
2000 PRINT "ENCOUNTER LOCATION:
2010 GOTO 730
2100 P=RND (12);IF P=1GOTO 400
2110 IF P=12GOTO 2000
2120 RETURN 
2200 PRINT ;PRINT ;K=KP;IF CY<-16CLEAR 
2210 PRINT ;RETURN 
:RETURN ;RUN 
